(use ../src/main)

#A simple hello world lllm program:a

(print "Checking for NASM...")
(assert (= 0 (os/execute ["/bin/nasm" "-v"])))
(print "NASM OK.\n
Attempting base test link...")
(link "./examples/unit-test.janet" "")
(print "Base test link OK. Checking if output is as expected...")
(def resrun (:read ( (os/spawn ["./examples/unit-test"] :p {:out :pipe} ) :out) :all) )
(assert (deep= resrun #deep= as = would check instances and not values.
               @"Base test program for llllm and lllm.\n"))
(print "BASE LINK OK.")
(print "System seems sufficiently capable.\n
Erasing base test build...")
(os/execute ["/bin/rm" "./examples/unit-test"])
(print "Good job, all tests passed!")
(os/exit)
